<script>on mouseUpVECgo next cdend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>366</left>
<top>297</top>
<right>397</right>
<bottom>322</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17779</icon>
<textAlign>center</textAlign>
<font>ﾃｧ笳甘ｱﾃｦﾃｭﾂｩﾃｫﾃ</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<name>Prev</name>
<script>on mouseUpgo prev cdend mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>0</top>
<right>512</right>
<bottom>192</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>MSCF</name>
<script></script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>297</top>
<right>433</right>
<bottom>322</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8419</icon>
<textAlign>center</textAlign>
<font>ﾃｧ笳甘ｱﾃｦﾃｭﾂｩﾃｫﾃ</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<name>Next</name>
<script>on mouseUpVECgo next cdend mouseUp</script>
</part>
<part>
<id>1</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>438</left>
<top>297</top>
<right>469</right>
<bottom>322</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>7417</icon>
<textAlign>center</textAlign>
<font>ﾃｧ笳甘ｱﾃｦﾃｭﾂｩﾃｫﾃ</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<name>RTN</name>
<script>on mouseUpgo cd "ﾃｩnﾃïｬ"end mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>474</left>
<top>297</top>
<right>505</right>
<bottom>322</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2105</icon>
<textAlign>center</textAlign>
<font>ﾃｧ笳甘ｱﾃｦﾃｭﾂｩﾃｫﾃ</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<name>ﾃ厩ﾃ嘉｢ﾃ韻ﾃ栄ﾃ鰻ﾃ嘉｡ﾃ [</name>
<script>on mouseUpglobal AUTO,MoLoif AUTO thenShowbtnput False into Autoput seconds() into STimeexit mouseUpend ifset icon of me to "ﾃｩﾂｩﾃｬﾃ" -- ﾃ竏妥ﾃﾃ窶ｦﾃｮﾎｩﾃ｢ﾃｻﾃ竏妥ﾃ暗ﾃ甘ﾂｧﾃ窶ｦﾃﾂｵﾃﾎｩhidebtnset cursor to watchwait for 2secput "true" into Autoput mouseloc() into MoLoend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>7</id>
<text><span class="style1">b3e D4 F Bb D F A3 D4 F Bb D F G3 D4 F Bb D F F3 D4 F Bb D5 Bb4 Eb3e D4 F Bb D F D3 D4 F Bb D F Eb3 D4 F Bb D F F3 D4 F A C5 A4Bb3e D4 F Bb D F A3 D4 F Bb D F G3 D4 F Bb D F F3 D4 F Bb D5 Bb4 Eb3e D4 F Bb D F D3 D4 F A G A Eb3 G4 A Bb C5 D F3 Eb5 D C Bb4 ABb4e Bb3 D4 F Bb F A A3 C4 F A F G G3 Bb D4 G Eb F F3 A C4 F D Eb4e Eb3 G C4 Eb C D D3 F A D4 Bb3 Eb4 Eb3 G C4 Eb G F F3 A C4 F ABb4e D5 F Bb3 D4 F A C5 F A3 C4 F G Bb Eb5 G3 Bb Eb4 F Bb D5 F3 Bb D4 Eb4e G C5 Eb3 G C4 D F Bb D3 F Bb Eb4 G C5 Eb3 G C4 F A C5 F4q3 C5q AhBb3e Db4 F Bb Db F Ab3 Db4 F Bb Db F Gb3 Db4 F Bb Db F F3 Db4 F Bb Db5 Bb4 Eb3e Db4 F Bb Db F Db3 Db4 F Bb Db F Eb3 Db4 F Bb Db F F3 Db4 F A C5 A4Bb3e Db4 F Bb Db F Ab3 Db4 F Bb Db F Gb3 Db4 F Bb Db F F3 Db4 F Bb Db5 Bb4 Eb3e Db4 F Bb Db F Db3 Db4 F Ab Gb Ab Eb3 G4 A Bb C5 Db F3 Eb5 Db C Bb4 ABb4e Bb3 Db4 F Bb F Ab Ab3 C4 F Ab F Gb Gb3 Bb Db4 Gb Eb F F3 Ab C4 F Db Eb4e Eb3 Gb C4 Eb C Db Db3 F Ab Db4 Bb3 Eb4 Eb3 Gb C4 Eb Gb F F3 A C4 F ABb4e Db5 F Bb3 Db4 F Ab C5 F Ab3 C4 F Gb Bb Eb5 Gb3 Bb Eb4 F Bb Db5 F3 Bb Db4 Eb4e Gb C5 Eb3 Gb C4 Db F Bb Db3 F Bb Eb4 Gb C5 Eb3 Gb C4 F A C5 F4q3 C5q Ah</span><span class="style5"></span></text>
</content>
<name>ﾃｪﾃ佚ﾃεｪiﾃ｢ﾂｪ</name>
<script>on openbackground -- Midi Movieﾃﾃε･ﾆ津窶氾ｨoﾃﾂｵglobal BGMif BGM = "OFF" then pass openbackgroundset cursor to watch--ﾃﾂｱﾃﾂｱﾃ窶ｦﾃｱﾂｺﾃｫOﾃï｣ｿﾃｬﾂｸﾃﾃ催ﾃ暗⑿closecardﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｢ﾃ窶ｦﾃ窶｡ﾃ⑩ﾃ⒀put "main.moov" into TheMovieNameif TheMovieName is in the windows thenelse-- The movie window is closed and this script will open itMovie TheMovieName,"borderless","card","invisible","floating"put the result into TheResultif "Error" is in TheResult then -- Something went wronganswer TheResultpass openbackgroundend if-- ﾃﾂ｢ﾃﾃ偲ﾂ｢ﾃﾃ偲ﾂｻﾃｪ窶ｺﾃｭﾃ凝⑿ﾃﾂ｢ﾃﾃﾃﾂｻﾃﾂｪﾃﾂｧﾃﾂｻﾃﾃε窶｡ﾃ窶 ﾃﾃ暗邃｢ﾃｩﾃ甘ﾃ凝､竏湘ﾂｶﾃ竏湘ｨﾃｫﾃﾂ｢ﾃﾆ津ﾂｮﾃ竕 ﾃ⒀if there is a window TheMovieName thenset audioLevel of window TheMovieName to "256"set mute of window TheMovieName to falseset badge of window TheMovieName to trueset controllerVisible of window TheMovieName to falseset closeOnFinish of window TheMovieName to falseset loop of window TheMovieName to trueset seeAllFrames of window TheMovieName to falseset startTime of window TheMovieName to "0"set endTime of window TheMovieName to "4,10,24"set dontErase of window TheMovieName to falseset fastIdle of window TheMovieName to falseset rate of window TheMovieName to "1.0"show window TheMovieNameend ifend ifpass openbackgroundend openbackgroundon closebackgroundglobal CBGMif CBGM = "TRUE" then pass closebackgroundput "main.moov" into TheMovieNameif TheMovieName is in the windows thenclose window TheMovieNameend ifpass closebackgroundend closebackgroundon opencardglobal STIMEput seconds() into STIMEpass openCardend opencardon idleglobal Auto,STIME,MoLoif Auto thenif MoLo <> the mouseLoc thenput False into Autoput seconds() into STimeend ifif visible of bg btn "Next" then hidebtnput the mouseLoc into MoLoif seconds() - STime > WTime(Auto) thensend "VEC" to this cardgo nextend ifelseif MoLo <> mouseLoc() then put seconds() into STimeput the mouseLoc into MoLoif seconds() - STime > WTime(Auto) thenput True into Autoput seconds() into STimeend ifend ifif not(visible of bg btn "Next") and not AUTO then showbtnend idleon showbtnlock screenshow bg btn "Next"show bg btn "Prev"show bg btn "RTN"set icon of bg btn "ﾃ厩ﾃ嘉｢ﾃ韻ﾃ栄ﾃ鰻ﾃ嘉｡ﾃ [" to "ﾃｩﾃ凝ｬﾃ"AddColor colorcardunlock screenend showbtnon hidebtnlock screenhide bg btn "Next"hide bg btn "Prev"hide bg btn "RTN"set icon of bg btn "ﾃ厩ﾃ嘉｢ﾃ韻ﾃ栄ﾃ鰻ﾃ嘉｡ﾃ [" to "ﾃｩﾂｩﾃｬﾃ"unlock screenend hidebtnon VEC-- ﾃ雨ﾃ [ﾃ栄ﾃﾂｮﾃﾂｴﾃ窶ｦﾃ･ﾂｯﾃ｢ﾂ ﾃ｢ﾏ\ﾃﾂｻﾃﾂｫﾃï｣ｿﾃｬﾂｸﾃﾃ催ﾃend VECon MOYA Mrepeat with N=1 to Mset visible of btn N to random(2) = 1end repeatend MOYAon mouseStillDown -- ﾃ厭ﾃ右ﾃ厩ﾃ閲ﾃ運ﾃ嘉ｬﾃ邃｢ﾃ｢ﾃｼﾃ竕･ﾃﾃ催ﾃ暗竏ﾃ②ﾃｩﾃ凝ｬﾃﾃ窶ｦﾃﾂｻﾃﾃglobal Auto,STimeif Auto then put False into Autoput seconds() into STimeend mouseStillDownon keyDown K -- ﾃ鵜ﾃ [ﾃ閲ﾃ [ﾃ栄ﾃ邃｢ﾃｭ@ﾃﾂｩﾃﾃ催ﾃ暗竏ﾃ②ﾃｩﾃ凝ｬﾃﾃ窶ｦﾃﾂｻﾃﾃglobal Auto,STimeif Auto then put False into Autoput seconds() into STimepass keyDownend keyDownon closecardif there is not a cd fld 1 then pass closecardrepeat with X = 1 to number(cd flds)hide cd fld Xend repeatpass closeCardend closecardon Music -- idleﾃﾃε穎ﾃ嘉ｬﾃ栄ﾃ嘉｢ﾃ竕暗･ﾆ津窶氾ｨoﾃﾂｵﾃﾆ津ﾂ｢ﾃﾃ催ﾅ津ﾂ｢ﾃﾂ｢ﾃ②ﾃ⑿Ver2.0ﾃ竕暗ﾃ陛ｩgﾃｳpﾃﾏ\ﾃ竏湘⒀global MSC,BGMif BGM = "OFF" then exit Musicif MSC < 0 or MSC > 7 then put 0 into MSCif (MSC mod 2)+2 is in sound() or sound() is "exp5" then exit Musicadd 1 to MSCplay "StarLight" & ((MSC+1) mod 2)+2 tempo 100 line MSC of fld "MSCF"end Musicon INBTNglobal AUTOif AUTO = "TRUE" then exit INBTNshow cd fld "ﾃｪ窶｡ﾃｱﾃｦ"end INBTNon OUTBTNif there is a cd fld "ﾃｪ窶｡ﾃｱﾃｦ" then hide cd fld "ﾃｪ窶｡ﾃｱﾃｦ"end OUTBTNon INBTN2global AUTOif AUTO = "TRUE" then exit INBTN2show cd fld "ﾃｪ窶｡ﾃｱﾃｦ2"end INBTN2on OUTBTN2if there is a cd fld "ﾃｪ窶｡ﾃｱﾃｦ2" then hide cd fld "ﾃｪ窶｡ﾃｱﾃｦ2"end OUTBTN2on INBTN3global AUTOif AUTO = "TRUE" then exit INBTN3show cd fld "ﾃｪ窶｡ﾃｱﾃｦ3"end INBTN3on OUTBTN3if there is a cd fld "ﾃｪ窶｡ﾃｱﾃｦ3" then hide cd fld "ﾃｪ窶｡ﾃｱﾃｦ3"end OUTBTN3on colorMeAddColor colorCard,checkerBoardOpen,30end colorMe</script>
